home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / cg5___i1.p2s < prev    next >
Encoding:
Text File  |  1994-05-10  |  3.3 KB  |  147 lines
  1. ###############################################################
  2. # Description:  Open the wave player, load, set record settings,
  3. # record, seek, play, save, close . Monitor input enable.
  4. #
  5. #  NOTE: This test will be failed if the device driver
  6. #        doesn't support streaming.
  7. ############################################################
  8.  
  9. @BREAK      A CDDA WILL NEED TO BE IN THE DEFAULT CD-ROM
  10.  
  11. # OPEN CDDA1
  12. open cdaudio00 alias cdda1 shareable notify
  13. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #2
  14. @WAIT_NOTIFY 2 30000
  15.  
  16. # ACQUIRE CDDA1
  17. acquire cdda1 notify
  18. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_ACQUIREDEVICE #3
  19. @WAIT_NOTIFY 3 30000
  20.  
  21. # CHECK FOR PRESENCE OF CDDA1
  22. status cdda1 media present wait
  23. =TRUE
  24.  
  25. CONNECTOR cdda1 enable type CD stream notify
  26. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CONNECTOR #4
  27. @WAIT_NOTIFY 4 30000
  28.  
  29. # PUT CDDA1 AT START
  30. seek cdda1 to start notify
  31. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SEEK #5
  32. @WAIT_NOTIFY 5 30000
  33.  
  34. # PLAY CDDA1 FOR 15 SEC
  35. play cdda1 to 15000 notify
  36. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #6
  37. @WAIT_NOTIFY 6 20000
  38.  
  39.  
  40.  
  41. ###############################################
  42. #
  43. #  ENABLE CD STREAM
  44. #  ENABLE MONITOR INPUT  &  CHECK ITS STATUS
  45. #
  46. ################################################
  47.  
  48.  
  49. open waveaudio00 alias wave shareable notify
  50. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #7
  51. @WAIT_NOTIFY 7 45000
  52.  
  53. CONNECTION wave query type wave stream alias AmpMixer wait
  54.  
  55. CONNECTOR wave enable type LINE IN notify
  56.  
  57.  
  58. SET AmpMixer MONITOR OFF wait
  59. status AmpMixer monitor wait
  60. =false
  61.  
  62. ############################################
  63. #
  64. #   LOAD A NEW FILE TO BE RECORDED
  65. #
  66. ############################################
  67.  
  68. load wave new notify
  69. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #8
  70. @WAIT_NOTIFY 8 30000
  71.  
  72. ############################################
  73. #
  74. #   SET THE DIGITAL AUDIO PLAYER
  75. #   TIME FORMAT - MILLISECONDS
  76. #   BITS PER SAMPLE - 16
  77. #   SAMPLES PER SEC - 22.05 Khz
  78. #   CHANNELS - 1
  79. #   FORMAT TAG - PCM
  80. #
  81. ###########################################
  82.  
  83. set wave time format milliseconds wait
  84. status wave time format wait
  85. =milliseconds
  86.  
  87. set wave bitspersample 16 wait
  88. status wave bitspersample wait
  89. =16
  90.  
  91. set wave samplespersec 22050 wait
  92. status wave samplespersec wait
  93. =22050
  94.  
  95. set wave channels 1 wait
  96. status wave channels wait
  97. =1
  98.  
  99. set wave format tag PCM wait
  100. status wave format tag wait
  101. =PCM
  102.  
  103. ############################################
  104. #
  105. #   RECORD THE NEW WAVE FILE
  106. #
  107. ############################################
  108.  
  109. record wave from 0 to 20000 notify
  110. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #9
  111. @WAIT_NOTIFY 9 20000
  112.  
  113. stop wave wait
  114. @WAIT_NOTIFY 10 20000
  115.  
  116.  
  117. ############################################
  118. #
  119. #   SEEK TO START
  120. #   PLAY THE NEW RECORDED FILE
  121. #   SAVE THE NEW RECORDED FILE
  122. #
  123. ############################################
  124.  
  125. seek wave to 0 wait
  126. status wave position wait
  127. =0
  128. play wave notify
  129. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #13
  130. @WAIT_NOTIFY 13 45000
  131.  
  132. save wave delete.wav notify
  133. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #14
  134. @WAIT_NOTIFY 14 45000
  135.  
  136. ############################################
  137. #
  138. #   CLOSE THE DIGITAL AUDIO PLAYER AND
  139. #   EXPECT A SUCCESSFUL CLOSE
  140. #
  141. ############################################
  142.  
  143. close wave notify
  144. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #15
  145. @WAIT_NOTIFY 15 45000
  146.  
  147.